---
title: "Elections in Colombia: Local Councils"
output: html_notebook
---


```{r}
library(tidyverse)
library(readstata13)
library(foreign)
library(readxl)
library(writexl)
library(lubridate)
library(PanelMatch)
```

I start with the shared vote of the Left in the local councils.

```{r}

c_84 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/1984_Concejo.dta")

c_86 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/1986_Concejo.dta")

c_90 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/1990_Concejo.dta")

c_92 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/1992_Concejo.dta")

c_94 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/1994_Concejo.dta")

c_97 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/1997_Concejo.dta")

c_00 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/2000_Concejo.dta")

c_03 <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/1.1.Municipality/2003_Concejo.dta")

c_84 <- c_84 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_86 <- c_86 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_90 <- c_90 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_92 <- c_92 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_94 <- c_94 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_97 <- c_97 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_00 <- c_00 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c_03 <- c_03 %>%
  dplyr::select(ano, coddpto, departamento, codmpio, municipio,
                codigo_partido, primer_apellido, segundo_apellido, nombres,
                votos, curules)

c84_03 <- bind_rows(c_84, c_86, c_90, c_92, c_94, c_97, c_00, c_03)

c84_03 <- c84_03 %>%
  rename(year = ano,
         divipola = codmpio)

party_id <- read.dta13("/Volumes/Backup Plus/Storage-OrganizedFiles/Colombia/Bases electorales/Methodology/Partidos_Electorales.dta")

c_final <- left_join(c84_03, party_id)

save.dta13(
  c_final,
  "Ortega(2024)-Concejo_1984-2003.dta")

  # End of this part.
```

Now, I am going filter the information for curules and the representation of the Left.

```{r}
c_final <- read.dta13("Ortega(2024)-Concejo_1984-2003.dta")

c_final <- c_final %>%
  mutate(left_m = case_when(
    str_detect(nombre_partido, "ALIANZA NACIONAL POPULAR") 
    | str_detect(nombre_partido, " ANAPO")
    | str_detect(nombre_partido, "FRENTE DEMOCRATICO")
    | str_detect(nombre_partido, "MOVIMIENTO 19 DE ABRIL")
    | str_detect(nombre_partido, "FRENTE DEMOCRATICO")
    | str_detect(nombre_partido, "MOVIMIENTO ALIANZA SOCIAL INDIGENA")
    | str_detect(nombre_partido, " ASI")
    | str_detect(nombre_partido, "MOVIMIENTO ALTERNATIVA DEMOCRATICA")
    | str_detect(nombre_partido, "MOVIMIENTO AUTORIDADES INDIGENAS DE COLOMBIA")
    | str_detect(nombre_partido, " AICO")
    | str_detect(nombre_partido, "MOVIMIENTO FRENTE SOCIAL Y POLITICO")
    | str_detect(nombre_partido, "MOVIMIENTO OBRERO INDEPENDIENTE Y REVOLUCIONARIO")
    | str_detect(nombre_partido, " MOIR")
    | str_detect(nombre_partido, "MOVIMIENTO QUINTIN LAME")
    | str_detect(nombre_partido, "MOVIMIENTO VIA ALTERNA")  
    | str_detect(nombre_partido, "PARTIDO ALIANZA DEMOCRATICA")
    | str_detect(nombre_partido, " M-19")
    | str_detect(nombre_partido, " AD-M19")
    | str_detect(nombre_partido, "PARTIDO COMUNISTA COLOMBIANO")
    | str_detect(nombre_partido, "PARTIDO SOCIALDEMOCRATA COLOMBIANO")
    | str_detect(nombre_partido, " PSOC")
    | str_detect(nombre_partido, "POLO DEMOCRATICO INDEPENDIENTE")
    | str_detect(nombre_partido, " PDI")
    | str_detect(nombre_partido, "UNION NACIONAL DE OPOSICION")
    | str_detect(nombre_partido, " UNO")
    | str_detect(nombre_partido, "UNION PATRIOTICA")
    | str_detect(nombre_partido, " UP")    
    ~ 1,
    TRUE ~ 0)
  )

c_final <- c_final %>%
  mutate(left_core = case_when(
    str_detect(nombre_partido, "FRENTE DEMOCRATICO")
    | str_detect(nombre_partido, "MOVIMIENTO 19 DE ABRIL")
    | str_detect(nombre_partido, "PARTIDO ALIANZA DEMOCRATICA")
    | str_detect(nombre_partido, " M-19")
    | str_detect(nombre_partido, " AD-M19")
    | str_detect(nombre_partido, "PARTIDO COMUNISTA COLOMBIANO")
    | str_detect(nombre_partido, "UNION NACIONAL DE OPOSICION")
    | str_detect(nombre_partido, " UNO")
    | str_detect(nombre_partido, "UNION PATRIOTICA")
    | str_detect(nombre_partido, " UP")    
    ~ 1,
    TRUE ~ 0)
  )

c_final <- c_final %>%
  mutate(left_broad = case_when(
    str_detect(nombre_partido, "FRENTE DEMOCRATICO")
    | str_detect(nombre_partido, "MOVIMIENTO 19 DE ABRIL")
    | str_detect(nombre_partido, "CONVERGENCIA CIUDADANA")
    | str_detect(nombre_partido, "MOVIMIENTO FRENTE SOCIAL Y POLITICO")  
    | str_detect(nombre_partido, "MOVIMIENTO NUEVA COLOMBIA")
    | str_detect(nombre_partido, "NUEVO LIBERALISMO")
    | str_detect(nombre_partido, "MOVIMIENTO UNIONISTA")
    | str_detect(nombre_partido, "PARTIDO ALIANZA DEMOCRATICA")
    | str_detect(nombre_partido, " M-19")
    | str_detect(nombre_partido, " AD-M19")
    | str_detect(nombre_partido, "PARTIDO COMUNISTA COLOMBIANO")
    | str_detect(nombre_partido, "PARTIDO SOCIALDEMOCRATA COLOMBIANO")
    | str_detect(nombre_partido, " PSOC")
    | str_detect(nombre_partido, "PARTIDO UNIDAD DEMOCRATICA")
    | str_detect(nombre_partido, "POLO DEMOCRATICO INDEPENDIENTE")
    | str_detect(nombre_partido, " PDI")
    | str_detect(nombre_partido, "UNION NACIONAL DE OPOSICION")
    | str_detect(nombre_partido, " UNO")
    | str_detect(nombre_partido, "UNION PATRIOTICA")
    | str_detect(nombre_partido, " UP")    
    ~ 1,
    TRUE ~ 0)
  )
           

c_final <- c_final %>%
  mutate(left_extended = case_when(
    str_detect(nombre_partido, "FRENTE DEMOCRATICO")
    | str_detect(nombre_partido, "MOVIMIENTO 19 DE ABRIL")
    | str_detect(nombre_partido, "CONVERGENCIA CIUDADANA")
    | str_detect(nombre_partido, "MOVIMIENTO FRENTE SOCIAL Y POLITICO")  
    | str_detect(nombre_partido, "MOVIMIENTO NUEVA COLOMBIA")
    | str_detect(nombre_partido, "NUEVO LIBERALISMO")
    | str_detect(nombre_partido, "MOVIMIENTO UNION CRISTIANA")
    | str_detect(nombre_partido, " UC")    
    | str_detect(nombre_partido, "MOVIMIENTO UNIONISTA")
    | str_detect(nombre_partido, "PARTIDO ALIANZA DEMOCRATICA")
    | str_detect(nombre_partido, " M-19")
    | str_detect(nombre_partido, " AD-M19")
    | str_detect(nombre_partido, "PARTIDO COMUNISTA COLOMBIANO")
    | str_detect(nombre_partido, "PARTIDO NACIONAL CRISTIANO")
    | str_detect(nombre_partido, " PNC")
    | str_detect(nombre_partido, "PARTIDO SOCIALDEMOCRATA COLOMBIANO")
    | str_detect(nombre_partido, " PSOC")
    | str_detect(nombre_partido, "PARTIDO UNIDAD DEMOCRATICA")
    | str_detect(nombre_partido, "POLO DEMOCRATICO INDEPENDIENTE")
    | str_detect(nombre_partido, " PDI")
    | str_detect(nombre_partido, "UNION NACIONAL DE OPOSICION")
    | str_detect(nombre_partido, " UNO")
    | str_detect(nombre_partido, "UNION PATRIOTICA")
    | str_detect(nombre_partido, " UP")    
    ~ 1,
    TRUE ~ 0)
  )

c_final2 <- c_final %>%
  dplyr::group_by(year, divipola) %>%
  summarise(total_v = sum(votos, na.rm = T)) 

c_final3.1 <- c_final %>%
  dplyr::group_by(year, divipola) %>%
  filter(left_m == 1) %>%
  summarise(t_left_m = sum(votos, na.rm = T)) 

c_final3.2 <- c_final %>%
  dplyr::group_by(year, divipola) %>%
  filter(left_core == 1) %>%
  summarise(t_left_core = sum(votos, na.rm = T)) 

c_final3.3 <- c_final %>%
  dplyr::group_by(year, divipola) %>%
  filter(left_broad == 1) %>%
  summarise(t_left_broad = sum(votos, na.rm = T)) 

c_final3.4 <- c_final %>%
  dplyr::group_by(year, divipola) %>%
  filter(left_extended == 1) %>%
  summarise(t_left_extended = sum(votos, na.rm = T)) 

c_final4 <- left_join(c_final2, c_final3.1) 
c_final4 <- left_join(c_final4, c_final3.2) 
c_final4 <- left_join(c_final4, c_final3.3) 
c_final4 <- left_join(c_final4, c_final3.4) 

c_final4 <- c_final4 %>% replace_na(list(t_left_m = 0, t_left_core = 0, t_left_broad = 0, t_left_extended = 0)) 

c_final4 <- read_xlsx("Ortega(2024)-ElectionsCouncils&LeftRepresentation(1984-2003).xlsx")

```
